home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / exitFrameScripts_39_WaitonFrame(seconds) EFS Special.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  621 b   |  28 lines
  1. property Howlong, start
  2.  
  3. on beginSprite me
  4.   start = the ticks
  5.   Howlong = Howlong * 60.0
  6. end
  7.  
  8. on exitFrame
  9.   global gConMan
  10.   if (the ticks < (start + Howlong)) or resWindowUp() or modalWindowUp() then
  11.     go(the frame)
  12.   else
  13.     setIntroSeen(gConMan, #walls)
  14.   end if
  15. end
  16.  
  17. on getBehaviorDescription me
  18.   a = "Use this script on a holding frame to add a wait. Enter the wait time in seconds in the parameters dialog box. "
  19.   return a
  20. end
  21.  
  22. on getPropertyDescriptionList me
  23.   propList = [:]
  24.   a = [#comment: "Wait how many seconds?", #format: #float, #default: 1.0]
  25.   addProp(propList, #Howlong, a)
  26.   return propList
  27. end
  28.